shapiro.test(log(datos[datos$nse=="Alto", c("wgt")]$wgt))
Shapiro-Wilk normality test
data: log(datos[datos$nse == "Alto", c("wgt")]$wgt)
W = 0.91754, p-value = 0.1342
shapiro.test(log(datos[datos$nse=="Medio_alto", c("wgt")]$wgt))
Shapiro-Wilk normality test
data: log(datos[datos$nse == "Medio_alto", c("wgt")]$wgt)
W = 0.97676, p-value = 0.6027
shapiro.test(log(datos[datos$nse=="Medio", c("wgt")]$wgt))
Shapiro-Wilk normality test
data: log(datos[datos$nse == "Medio", c("wgt")]$wgt)
W = 0.97509, p-value = 0.4812
shapiro.test(log(datos[datos$nse=="Medio_Bajo", c("wgt")]$wgt))
Shapiro-Wilk normality test
data: log(datos[datos$nse == "Medio_Bajo", c("wgt")]$wgt)
W = 0.97084, p-value = 0.08077
shapiro.test(log(datos[datos$nse=="Bajo", c("wgt")]$wgt))
Shapiro-Wilk normality test
data: log(datos[datos$nse == "Bajo", c("wgt")]$wgt)
W = 0.96765, p-value = 0.5191